-- card: 17871 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 14812
-- name: LimitNet


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=0 top=21 right=133 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Digital


-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=110 top=21 right=133 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IBM


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=221 top=21 right=133 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Mac


-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=331 top=21 right=133 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PC


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=0 top=134 right=246 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Tandem


-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=110 top=134 right=246 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: UNIX


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=221 top=134 right=246 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wang


-- part 9 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=27 top=257 right=287 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  go prev card
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=100 top=257 right=287 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  go next card
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=209 top=265 right=292 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: limitNet
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 7
    put empty into cd fld i
  end repeat
  limitNet
end mouseUp

on limitNet
  global holder,NH,netserves,name
  set cursor to watch
  repeat with i = 43 to 49
    put short name of cd fld i of cd "Mac Grid" into name
    put first word of name into name
    get cd fld i of cd "Mac Grid"
    put it into holder
    if holder <> empty then
      parse
      put empty into netserves
      repeat with i = 1 to the number of lines of NH
        if netserves contains item 1 of line i of NH then
          next repeat
        else
          put item 1 of line i of NH & return after netserves
        end if
      end repeat
      put netserves into cd fld name
    end if
  end repeat
  set cursor to hand
end limitNet

parse

on parse
  global holder,NH
  put empty into NH
  repeat with i = 1 to the number of lines of holder
    put item 3 of line i of holder into dotnames
    repeat
      put offset("•",dotnames) into num
      if num is empty or num is 0 then exit repeat
      put char 1 to (num - 1) of dotnames & return after NH
      delete char 1 to num of dotnames
    end repeat
  end repeat
end parse



Digital
IBM
Mac
PC
Tandem
UNIX
Wang
Communications
Engineering/CAD
Info Management
Office Productivity
Publishing
Software Development
Network Services
Hardware

on mouseEnter
  put "lists network services available for" & " each environment" into fld "Tell"
end mouseEnter


on mouseleave
  put empty into fld "Tell"
end mouseLeave





-- part contents for card part 2
----- text -----
Development Tools
Mail Service
File Service
File Transfer
Print Service
Terminal Emulation
Translation
Network Management
Resource Sharing


-- part contents for card part 3
----- text -----
Development Tools
File Service
Terminal Emulation
File Transfer
Translation
Network Management


-- part contents for card part 4
----- text -----
File Service
File Transfer
Print Service
Development Tools
Mail Service
Terminal Emulation
Translation
Resource Sharing
Network Management


-- part contents for card part 5
----- text -----
File Service
File Transfer
Print Service
Translation
Resource Sharing
Network Management
Terminal Emulation


-- part contents for card part 6
----- text -----
Print Service
Network Management
Terminal Emulation
File Transfer
Resource Sharing


-- part contents for card part 7
----- text -----
Development Tools
File Service
Mail Service
File Transfer
Terminal Emulation
Network Management
Resource Sharing
Translation